Bath/Bath CDROM.iso/pc/BATH.DXR/Internal_13_Zoom In Btn.ls

Text File | 2001-07-26 | 263 b | 19 lines

global map

on mouseDown me
  set the member of sprite 18 to member("zoom_in_down")
  repeat while stillDown()
    tell map
      zoom(0.98999999999999999 / 1.0)
    end tell
  end repeat
end

on mouseEnter me
  cursor(280)
end

on mouseLeave me
  cursor(-1)
end